2 IFN=0ANDPEEK(53269)>0THENPOKE53269,0
4 IFN=0THENAL=PEEK(186)OR8:DIML(15):GOSUB400
6 IFN=0THENN=1:LOAD"C100 C540",AL,1
8 I=0:X=0:GOSUB600:SYS49920:FORI=6TO15:IFL(I)=1THENOPEN1,I,15,"I":CLOSE1
9 NEXT
10 POKE53280,0:POKE53281,0:PRINT"[155][147][156]FREEWARE 1994 BY MAREK ROTH. MAIN MENU:[155]"
12 FORI=0TO28:POKE54272+I,0:NEXT
20 DIMA$(2,25)
30 READA$(0,A):READA$(1,A):READA$(2,A):A=A+1:IFA$(0,A-1)<>"QUIT"THEN30
40 LP=PEEK(53245)-1:FORI=0TOA-1:PRINT"[155]";:IFI=LPTHENPRINT"";:L=I
45 IFPEEK(53247)>0THEN70
48 IFRD=1ANDI<>LPANDI<>LQTHENPRINT:GOTO54
50 PRINTSPC(20-LEN(A$(0,I))/2);A$(0,I)
54 NEXT:LQ=LP
60 PRINT"[158]PROGRAMS WITH _ CAN YOU RUN FROM BASIC!
70 [158]49795:RD[178]1
80 [139][194](53247)[178]0[167][153]"":[137]40
100 [151] 53269,0:[158]49792:[139]A$(0,L)[178]"QUIT"[167][158]64738
104 I[178]5
106 I[178]I[170]1:[139]I[177]15[167]120
108 [139]L(I)[178]0[167]106
110 AL[178]I:[159]1,I,7,""[170]A$(1,L)[170]"":[161]#1,Z$:MT[178]ST:[160]1:[139]MT[178]0[167]180
112 [137]106
120 [153]"LOADPLEASE INSERT "A$(2,L)
122 [153]"           IN ANY DRIVE!
130 OPEN1,AL,15,"M-R"+CHR$(28)+CHR$(0)+CHR$(1):GET#1,Z$:CLOSE1
140 IFZ$=""THENGOSUB500:GOTO130
150 FORI=0TO2000:NEXT
160 OPEN1,AL,15,"I":INPUT#1,A:CLOSE1:IFA>0THENGOTO150
170 PRINT"[147]":GOTO104
180 RESTORE:SYS49856
200 POKE646,PEEK(53280)
210 PRINT"[147]L[207]"CHR$(34);A$(1,L);CHR$(34)","AL
220 PRINT"R[213]
230 [151]198,2:[151]631,13:[151]632,13
240 [129]I[178]6[164]15:[139]L(I)[178]1[167][159]1,I,15,"I":[160]1
250 [130]:[128]
400 [151]53272,20:[153]"LOADTHIS VERSION 2.4 IS FREEWARE.
402 PRINT"WRITTEN 1994 BY MAREK.
404 [139][194](752)[167]800
408 [153]"DEVICE-TEST.
410 FORI=6TO15:POKE744+I,0
420 POKE768,61:OPEN1,I,15,"U:":POKE768,139
430 IFST<0THEN470
440 TI$="000000"
444 PRINT"UNIT"SPC(3-LEN(STR$(I)));I"[157]: ";
450 IFTI<70THEN450
452 IFST>0THEN456
454 GET#1,A$:PRINTA$;:GOTO452
456 PRINT#1,"U0>M1":PRINT#1,"M-W
"+CHR$(15):PRINT#1,"I":POKE744+I,I
460 PRINT#1,"M-W"CHR$(106)+CHR$(0)+CHR$(1)+CHR$(193):L(I)=1:NL=NL+1
462 OPEN2,I,5,"#":PRINT#1,"U1";5;0;35;0:INPUT#1,X:CLOSE2:IFX<>27ANDX>0THEN530
464 IFX>0THENPRINT#1,"M-W
"+CHR$(40)
465 IFX=0THENPRINT#1,"M-W
"+CHR$(20)
466 PRINT#1,"M-W"CHR$(106)+CHR$(0)+CHR$(1)+CHR$(200):L(I)=1:NL=NL+1
468 PRINT"IS TRIGGERED BY"1+X/27"MHZ.
470 [160]1:[130]:[142]
500 AL[178]AL[170]1:[139]AL[177]15[167]AL[178]3:[137]500
510 [139]L(AL)[178]0[167]500
520 [142]
530 [153]"NO OR BAD DISK PRESENT IN UNIT"I"CMD!
540 PRINT"PLEASE CLEAR ERROR!
550 [152]1,"M-W
"[170][199](255)
560 [152]1,"I":[132]1,X:[139]X[177]2[167]560
570 [137]450
600 [153]"VDC-RAM TEST (80 COLUMN-RAM IN 128 MODE)
610 POKE54784,19
620 IF PEEK(54784)<64THENPRINT"NO VDC RAM.":RETURN
630 POKE54784,28:POKE54785,PEEK(54785)OR(2^4)
640 POKE51200,0:POKE51201,0:POKE51202,0:SYS49692:IFPEEK(51203)=0THENI=1
650 POKE51201,64:SYS49714:IFPEEK(51203)=0THENI=2
660 POKE51201,0:POKE51202,255:SYS49692:IFPEEK(51203)=0THENX=1
670 POKE51201,64:SYS49714:IFPEEK(51203)=0THENX=2
680 IFX=2THENPOKE744,64:PRINT"64K VDC RAM.":RETURN
690 IFI=2THENPOKE744,16:PRINT"16K VDC RAM.":RETURN
700 PRINT"BAD VDC RAM.":RETURN
800 PRINT"DEVICES ALREADY TESTED.
810 [129]I[178]6[164]15
820 [139][194](744[170]I)[167]L(I)[178]1:NL[178]NL[170]1
830 [130]:[142]
1000 [131]"LOAD CONSTRUCTION KIT","DE LUXE KIT V2*,S","CONSTRUCTION KIT V2.4"
1010 [131]"EDIT TITLE WHERE YOU SELECT CAVES","TITELEDITOR V2*,S"
1012 [131]"LEVELPACKER V2.4"
1020 [131]"CREAT CAVEPACKS","CAVEPACKER V2*,S","LEVELPACKER V2.4"
1030 [131]"WRITE INTRO SCREEN","INTROSCREEN*,S","LEVELPACKER V2.4"
1040 [131]"MAKE BOULDER DASH GAME","LASTPACKER V2*,S","LEVELPACKER V2.4"
1050 [131]"SELECT LANGUAGE OF CONSTRUCTION KIT","SELECT L. V2.*,S"
1052 [131]"CONSTRUCTION KIT V2.4"
1070 [131]"RESTART KIT WITH OLD LEVEL","OLD CAVE V2*,S","CONSTRUCTION KIT V2.4"
1080 [131]"PACK FILES_","FINAL COMP*","EDITOR V2.4"
1090 [131]"EDITOR V2.4 ANLEITUNG_","ANLEITUNG*PRINT#","EDITOR V2.4
1100 DATA"EDITOR V2.4 MANUAL_","MANUAL*[152]","EDITOR V2.4
1110 [131]"WIE SICH BOULDER DASH ENTWICKELT HAT_","GESCHICH*PRINT#","EDITOR V2.4
1120 DATA"ANLEITUNG MINENFELD_","ANLEITUNG MINEN*[152]","MINENFELD
1130 [131]"MINENFELD SPIELEN_","MINENFELD*","MINENFELD
1140 DATA"WELCHE TITEL GEHEN EINE BESTIMMTE ZEIT_","CD-T*[152]","CD-TEILER"
1150 DATA"ASCII/PETASCII TEXTE CONVERTIEREN_","PET *[152]","PET 2 ASCII"
1160 DATA"DE LUXE BOOTBLOCK FUER 64ER PRGS_","BOOT 4*[152]","BOOT 4 64 MODE"
9990 DATA"QUIT"," "," "